home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #39 (1994-11-16)(Diesel - PackMAN)(DE)[WB].zip / Purity #39 (1994-11-16)(Diesel - PackMAN)(DE)[WB].adf / Forum / KP-MP3-Fehler < prev    next >
Text File  |  1978-01-01  |  3KB  |  113 lines
  1. Yho, hier habe ich einige Fehler in KickPascal  2.12/OS2-Includes
  2.  
  3.                                 und MaxonPASCAL 3.00/OS3.1-Includes
  4.  
  5. aufgelistet, PackMAN.
  6.  
  7. (Thanx 4 first error Røgersøft)
  8.  
  9. ----------------------------------------------------------------------
  10.  
  11. Includes/intuition.lib
  12.  
  13. Zeile 37: muß es "p_Requester" also so heißen:
  14.  
  15.   -156 : PROCEDURE ModifyProp(A0:p_Gadget; A1:p_Window;
  16.                               A2:p_Requester; D0,D1,D2,D3,D4:Long)
  17.  
  18. ----------------------------------------------------------------------
  19.  
  20. Includes/Workbench/startup.h
  21.  
  22. Includedatei muß folgendermaßen aussehen:
  23.  
  24. {$if not def WORKBENCH_STARTUP_H} CONST WORKBENCH_STARTUP_H=0;
  25.  
  26. {*********************************************************************
  27.  ** KickPascal-Include-Datei "Workbench/Startup.h" zu Kickstart 3.0 **
  28.  ********************************************************************* }
  29.  
  30. {richtiggestellte Version von: Falk Zühlsdorff (PackMAN) 22.06.1994
  31.  
  32.  bereits unter KP2.12/OS2-Includes falsch, vergl. RKRM_Libraries S.348}
  33.  
  34. TYPE p_WBStartup = ^WBStartup;
  35. TYPE p_WBArg = ^WBArg;
  36.  
  37. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  38. {$if not def LIBRARIES_DOS_H;incl "libraries/dos.h";endif}
  39.  
  40. TYPE WBArg = RECORD
  41.  wa_Lock : BPTR;
  42.  wa_Name : Str;
  43. END;
  44.  
  45.  
  46. TYPE WBStartup = RECORD
  47.  sm_Message    : Message;
  48.  sm_Process    : p_MsgPort;
  49.  sm_Segment    : BPTR;                {Fehler: sm_ArgList : p_WBArg;}
  50.  sm_NumArgs    : Long;
  51.  sm_ToolWindow : Str;
  52.  sm_ArgList    : ^ARRAY[1..MAXINT] OF WBArg;
  53. END;
  54.  
  55. {$endif}
  56.  
  57. ----------------------------------------------------------------------
  58.  
  59. Include/intuition/screen.h  (Problem, bei Lsg. --> PackMAN)
  60.  
  61.     TYPE DrawInfo = RECORD
  62.      dri_Version    : Word;
  63.      dri_NumPens    : Word;
  64.      dri_Pens       : ^Word;            <--- Problem
  65.      dri_Font       : p_TextFont;
  66.      dri_Depth      : Word;
  67.      dri_Resolution : RECORD
  68.                        X : Word;
  69.                        Y : Word;
  70.                       END;
  71.      dri_Flags      : Long;
  72.      dri_CheckMark  : p_Image;
  73.      dri_AmigaKey   : p_Image;
  74.      dri_Reserved   : ARRAY[0..4] OF Long;
  75.     END;
  76.  
  77.     dri_Pens : ^Word; Wie soll kann man sich das vorstellen ?
  78.  
  79.     Die Struktur soll die Farbnummern von Detailpen bis HiFillText-
  80.     Pen etc. enthalten...
  81.  
  82.     in C ist die Struktur (ltd. ROM Kernel Reference Manual Libraries
  83.                            S.57 )
  84.  
  85.     folgende: UWORD penvalue=myDrawInfo->dri_pens[Penname]
  86.  
  87.               wobei mydrawinfo Zeiger auf drawinfo ist
  88.  
  89.     [] gibt ja auf jeden Fall die Existenz eines Feldes an....
  90.  
  91.  
  92.     Ich hoffe jemand findet den Fehler, denn selbst bei
  93.  
  94.     dri_Pens : array[0..20] of word;
  95.  
  96.     gab es bei folgendem Versuch einer Abfrage von BLOCKPEN
  97.  
  98.     einen "Type error" :
  99.  
  100.  
  101.     x:integer
  102.     mydrawinfo:^drawinfo;
  103.  
  104.     ... getDrawinfo etc...
  105.  
  106.     x:=mydrawinfo^.dri_pens[BLOCKPEN];
  107.  
  108.                            ^---- hier kam es dann zu Problemen.
  109.  
  110.     Schickt mir dann die Idee (evtl. Include-File) und ich kann es
  111.     dann auf der Purity richigstellen.
  112.  
  113. ---------------------------------------------------------------------